home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / geograph.arc / CAPITALS.BAS (.txt) next >
Encoding:
GW-BASIC  |  1988-10-06  |  7.5 KB  |  170 lines
  1. 100  '*********************************
  2. 102  '*  "CAPITALS OF THE WORLD-40"   *
  3. 104  '* Copyright 1983 A. Bartorillo  *
  4. 106  '*********************************
  5. 108  '
  6. 110  SCREEN 0,1,0:WIDTH 40:LOCATE 1,1,0:COLOR 14,1:CLS
  7. 112  KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT
  8. 114  DEFINT A-Z:DIM A$(173),B$(173),S$(4)
  9. 116  RANDOMIZE (VAL(RIGHT$(TIME$,2))*VAL(MID$(TIME$,4,2)))
  10. 118  RESTORE 286:FOR I=1 TO 173:READ A$(I):NEXT:FOR I=1 TO 173:READ B$(I):NEXT
  11. 120  '***** Program menu *****
  12. 122  LOCATE 1,9:COLOR 15,12:PRINT" CAPITALS OF THE WORLD ":COLOR 14,1
  13. 124  LOCATE 8,2:COLOR 0,3
  14. 126  PRINT" Indicate which type of quiz you want ":COLOR 14,9
  15. 128  LOCATE 12,10:PRINT"<1> True And False"
  16. 130  LOCATE 14,10:PRINT"<2> Multiple Choice"
  17. 132  LOCATE 16,10:PRINT"<3> Fill In The Blank"
  18. 134  LOCATE 20,13:COLOR 16,2:PRINT" ENTER CHOICE ":COLOR 14,1
  19. 136  S$=INKEY$:IF S$="" OR S$<"1" OR S$>"3" THEN 136
  20. 138  ON VAL(S$) GOTO 142,188,238
  21. 140  '***** True/False type quiz *****
  22. 142  CLS:TOTAL=0:TOTAL1=0
  23. 144  K=INT(RND(1)*173)+1:IF A$(K)="" THEN 144
  24. 146  IF RND(1)>0.5 THEN Z1$=B$(K):Z2$=A$(K):TF=1:GOTO 152
  25. 148  TF=0:K1=INT(RND(1)*173)+1:IF A$(K1)="" OR K=K1 THEN 148
  26. 150  Z1$=B$(K):Z2$=A$(K1)
  27. 152  LOCATE 8,1:COLOR 15:PRINT Z1$:COLOR 14:PRINT"is the capital of":COLOR 15:PRINT Z2$:COLOR 14
  28. 154  LOCATE 13,10:PRINT"<T> = True"
  29. 156  LOCATE 14,10:PRINT"<F> = False"
  30. 158  TF$=INKEY$:IF TF$="" OR (TF$<>"t" AND TF$<>"T" AND TF$<>"f" AND TF$<>"F") THEN 158
  31. 160  IF TF$="t" OR TF$="T" THEN TF1=1 ELSE TF1=0
  32. 162  LOCATE 16,10:IF TF1=0 THEN PRINT"You selected: False" ELSE PRINT" You selected: True"
  33. 164  COLOR 15,4:IF TF1=TF THEN LOCATE 18,16:PRINT" CORRECT "
  34. 166  IF TF1<>TF THEN LOCATE 18,15:PRINT" INCORRECT "
  35. 168  COLOR 14,1:IF TF1<>TF OR (TF1=TF AND TF=0) THEN LOCATE 20,1:COLOR 15:PRINT B$(K):COLOR 14:PRINT"is the capital of":COLOR 15:PRINT A$(K):COLOR 14
  36. 170  A$(K)="":TOTAL=TOTAL+1:IF TF1=TF THEN TOTAL1=TOTAL1+1
  37. 172  COLOR 10:LOCATE 2,1:PRINT"Total quizzed ="TOTAL
  38. 174  LOCATE 3,1:PRINT"Total correct ="TOTAL1"..... ";
  39. 176  PRINT USING"###";100*TOTAL1/TOTAL;:PRINT"%"
  40. 178  COLOR 14:IF TOTAL=173 THEN 280
  41. 180  LOCATE 24,1:COLOR 0,2:PRINT" Hit any key for new selection (X=Esc) ";:COLOR 14,1
  42. 182  Z$=INKEY$:IF Z$="" THEN 182
  43. 184  CLS:IF Z$="x" OR Z$="X" THEN 118 ELSE 144
  44. 186  '** Multiple choice type quiz **
  45. 188  CLS:TOTAL1=0:TOTAL2=0
  46. 190  K=INT(RND(1)*173)+1:IF A$(K)="" THEN 190
  47. 192  M1=INT(RND(1)*173)+1:IF M1=K THEN 192
  48. 194  M2=INT(RND(1)*173)+1:IF M2=K OR M1=M2 THEN 192
  49. 196  M3=INT(RND(1)*173)+1:IF M3=K OR M3=M1 OR M3=M2 THEN 192
  50. 198  FLAG2=INT(RND(1)*4)+1:ON FLAG2 GOSUB 200,202,204,206:GOTO 208
  51. 200  S$(1)=B$(K):S$(2)=B$(M1):S$(3)=B$(M2):S$(4)=B$(M3):RETURN
  52. 202  S$(2)=B$(K):S$(3)=B$(M1):S$(4)=B$(M2):S$(1)=B$(M3):RETURN
  53. 204  S$(3)=B$(K):S$(4)=B$(M1):S$(1)=B$(M2):S$(2)=B$(M3):RETURN
  54. 206  S$(4)=B$(K):S$(1)=B$(M1):S$(2)=B$(M2):S$(3)=B$(M3):RETURN
  55. 208  LOCATE 8,20:PRINT"What is the capital of":COLOR 15:PRINT A$(K):COLOR 14
  56. 210  FOR I=1 TO 4:LOCATE 11+I,15:PRINT"<";MID$(STR$(I),2)"> ";S$(I):NEXT
  57. 212  A$=INKEY$:IF A$="" OR A$<"1" OR A$>"4" THEN 212 ELSE A=VAL(A$)
  58. 214  COLOR 15,4:IF A=FLAG2 THEN LOCATE 18,16:PRINT" CORRECT "
  59. 216  IF A<>FLAG2 THEN LOCATE 18,15:PRINT" INCORRECT "
  60. 218  COLOR 14,1:IF A<>FLAG2 THEN LOCATE 20,1:COLOR 15:PRINT B$(K):COLOR 14,1:PRINT"is the capital of":COLOR 15:PRINT A$(K):COLOR 14
  61. 220  A$(K)="":TOTAL=TOTAL+1:IF A=FLAG2 THEN TOTAL1=TOTAL1+1
  62. 222  COLOR 10:LOCATE 2,1:PRINT"Total quizzed ="TOTAL
  63. 224  LOCATE 3,1:PRINT"Total correct ="TOTAL1"..... ";
  64. 226  PRINT USING"###";100*TOTAL1/TOTAL;:PRINT"%"
  65. 228  COLOR 14,1:IF TOTAL=173 THEN 280
  66. 230  LOCATE 24,1:COLOR 0,2:PRINT" Hit any key for new selection (X=Esc) ";:COLOR 14,1
  67. 232  Z$=INKEY$:IF Z$="" THEN 232
  68. 234  CLS:IF Z$="x" OR Z$="X" THEN 118 ELSE 190
  69. 236  '** Fill in the blank type quiz **
  70. 238  CLS:TOTAL=0:TOTAL1=0
  71. 240  K=INT(RND(1)*173)+1:IF A$(K)="" THEN 240
  72. 242  FLAG1=0:IF RND(1)>0.5 THEN FLAG1=1
  73. 244  IF FLAG1=0 THEN Z1$=A$(K) ELSE Z1$=B$(K)
  74. 246  FOR I=1 TO LEN(Z1$):IF ASC(MID$(Z1$,I,1))>90 THEN MID$(Z1$,I,1)=CHR$(ASC(MID$(Z1$,I,1))-32)
  75. 248  NEXT:LOCATE 11,1
  76. 250  IF FLAG1=0 THEN COLOR 15:PRINT B$(K):COLOR 14:PRINT"is the Capital of what Country?" ELSE PRINT"What is the capital of":COLOR 15:PRINT A$(K):COLOR 14
  77. 252  LOCATE 15,1:COLOR 15:LINE INPUT Z2$:COLOR 14
  78. 254  FOR I=1 TO LEN(Z2$):IF ASC(MID$(Z2$,I,1))>90 THEN MID$(Z2$,I,1)=CHR$(ASC(MID$(Z2$,I,1))-32)
  79. 256  NEXT
  80. 258  COLOR 15,4:IF Z1$=Z2$ THEN LOCATE 18,16:PRINT" CORRECT "
  81. 260  IF Z1$<>Z2$ THEN LOCATE 18,15:PRINT" INCORRECT "
  82. 262  COLOR 14,1:IF Z1$<>Z2$ THEN LOCATE 20,1:COLOR 15:PRINT B$(K):COLOR 14:PRINT"is the capital of":COLOR 15:PRINT A$(K):COLOR 14
  83. 264  A$(K)="":TOTAL=TOTAL+1:IF Z1$=Z2$ THEN TOTAL1=TOTAL1+1
  84. 266  COLOR 10:LOCATE 2,1:PRINT"Total quizzed ="TOTAL
  85. 268  LOCATE 3,1:PRINT"Total correct ="TOTAL1"..... ";
  86. 270  PRINT USING"###";100*TOTAL1/TOTAL;:PRINT"%"
  87. 272  COLOR 14:IF TOTAL=173 THEN 280
  88. 274  LOCATE 24,1:COLOR 0,2:PRINT" Hit any key for new selection (X=Esc) ";:COLOR 14,1
  89. 276  Z$=INKEY$:IF Z$="" THEN 276
  90. 278  CLS:IF Z$="x" OR Z$="X" THEN 118 ELSE 240
  91. 280  LOCATE 24,1:COLOR 0,2:PRINT" You have been quizzed on all available";:LOCATE 25,1:PRINT" selections-hit any key for the menu   ";:COLOR 14,1
  92. 282  IF INKEY$="" THEN 282 ELSE CLS:GOTO 118
  93. 284  '*** 173 Countries of the World ***
  94. 286  DATA Afghanistan,Albania,Algeria,Andorra,Angola
  95. 288  DATA Antigua,Argentina,Australia,Austria,Bahamas
  96. 290  DATA Bahrain,Bangladesh,Barbados,Belgium,Belize
  97. 292  DATA Benin,Bermuda,Bhutan,Botswana,Brazil
  98. 294  DATA Brunei,Bulgaria,Burma,Burundi,Cameroon,Canada
  99. 296  DATA Cape Verde,Central African Republic,Chad
  100. 298  DATA Chile,China,Colombia,Comoros,Congo
  101. 300  DATA Costa Rica,Cuba,Cyprus,Czechoslovakia,Denmark
  102. 302  DATA Djibouti,Dominica,Dominican Republic,Ecuador
  103. 304  DATA Egypt,El Salvador,Equatorial Guinea,Ethiopia
  104. 306  DATA Faeroe Islands,Falkland Islands,Fiji,Finland
  105. 308  DATA France,French Guiana,Gabon
  106. 310  DATA The Gambia,East Germany,West Germany,Ghana
  107. 312  DATA Gibraltar,Greece,Greenland,Grenada
  108. 314  DATA Guatamala,Guinea,Guinea-Bissau,Guyana,Haiti
  109. 316  DATA Honduras,Hong Kong,Hungary,Iceland,India,Indonesia
  110. 318  DATA Iran,Iraq,Ireland,Israel,Italy
  111. 320  DATA Ivory Coast,Jamaica,Japan,Jordan,Cambodia,Kenya
  112. 322  DATA North Korea,South Korea,Kuwait,Laos
  113. 324  DATA Lebanon,Lesotho,Liberia,Libya,Liechtenstein
  114. 326  DATA Luxembourg,Macao,Madagascar,Malawi
  115. 328  DATA Malaysia,Maldives,Mali,Malta
  116. 330  DATA Martinique,Mauritania,Mauritius
  117. 332  DATA Mexico,Mongolia,Montserrat
  118. 334  DATA Morocco,Mozambique,Namibia,Nauru,Nepal
  119. 336  DATA Netherlands Antilles
  120. 338  DATA New Zealand,Nicaragua,Niger,Nigeria,Norway,Oman
  121. 340  DATA Pakistan,Panama
  122. 342  DATA Papua New Guinea,Paraguay,Peru,Philippines
  123. 344  DATA Poland,Portugal,Puerto Rico,Qatar,Rumania
  124. 346  DATA Rwanda,St. Lucia
  125. 348  DATA St. Vincent,Western Samoa
  126. 350  DATA Senegal,Sierra Leone,Singapore,Solomon Islands
  127. 352  DATA Somalia,Spain,Sri Lanka,Sudan,Suriname
  128. 354  DATA Swaziland,Sweden,Switzerland,Syria,Taiwan
  129. 356  DATA Tanzania,Thailand,Togo,Tonga,Trinidad & Tobago
  130. 358  DATA Tunisia,Turkey,Tuvalu
  131. 360  DATA Uganda,U.S.S.R.,United Arab Emirates,Great Britain
  132. 362  DATA Northern Ireland,United States,Upper Volta
  133. 364  DATA Uruguay,Venezuela,Vietnam,Zaire
  134. 366  DATA British Virgin Islands,North Yemen,South Yemen
  135. 368  DATA Yugoslavia,Zambia,Zimbabwe
  136. 370  '*** 173 Capitals of the World ***
  137. 372  DATA Kabul,Tirane,Algiers,Andorra la Vella,Luanda
  138. 374  DATA St. John's,Buenos Aires,Canberra,Vienna
  139. 376  DATA Nassau,Manama,Dacca,Bridgetown,Brussels
  140. 378  DATA Belmopan,Porto-Novo,Hamilton,Thimphu,Gaborone
  141. 380  DATA Brasilia,Bandar Seri Begawan,Sofia,Rangoon
  142. 382  DATA Bujumbura,Yaounde,Ottawa,Praia,Bangui,N'Djamena
  143. 384  DATA Santiago,Peking,Bogota,Moroni,Brazzaville
  144. 386  DATA San Jose,Havana,Nicosia,Prague,Copenhagen,Djibouti
  145. 388  DATA Roseau,Santo Domingo,Quito,Cairo,San Salvador
  146. 390  DATA Malabo,Addis Ababa,Torshavn,Stanley,Suva,Helsinki
  147. 392  DATA Paris,Cayenne,Libreville,Bathurst,Berlin,Bonn
  148. 394  DATA Accra,Gibraltar,Athens,Godthab,St. George's,Guatemala,Conakry
  149. 396  DATA Bissau,Georgetown,Port-au-Prince,Tegucigalpa
  150. 398  DATA Victoria,Budapest,Reykjavik,New Delhi,Djakarta
  151. 400  DATA Tehran,Baghdad,Dublin,Jerusalem,Rome,Abidjan
  152. 402  DATA Kingston,Tokyo,Amman,Phnom Penh,Nairobi,P'yongyang
  153. 404  DATA Seoul,Al Kuwait,Vientiane,Beirut,Maseru,Monrovia
  154. 406  DATA Tripoli,Vaduz,Luxembourg,Macao,Antananarivo
  155. 408  DATA Lilongwe,Kuala Lumpur,Male,Bamako,Valletta
  156. 410  DATA Fort-de-France,Nouakchott,Port Louis,Mexico City
  157. 412  DATA Ulan Bator,Plymouth,Rabat,Maputo,Windhoek,Yaren
  158. 414  DATA Kathmandu,Willemstad,Wellington,Managua,Niamey
  159. 416  DATA Lagos,Oslo,Muscat,Islamabad,Panama,Port Moresby
  160. 418  DATA Asuncion,Lima,Manila,Warsaw,Lisbon,San Juan
  161. 420  DATA Doha,Bucharest,Kigali,Castries,Kingstown,Apia
  162. 422  DATA Dakar,Freetown,Singapore,Honiara,Mogadishu
  163. 424  DATA Madrid,Colombo,Khartoum,Paramaribo,Mbabane
  164. 426  DATA Stockholm,Bern,Damascus,Taipei,Dar es Salaam
  165. 428  DATA Bangkok,Lome,Nuku'alofa,Port of Spain,Tunis
  166. 430  DATA Ankara,Fongafale,Kampala,Moscow,Abu Dhabi,London
  167. 432  DATA Belfast,Washington,Ouagadougou,Montevideo,Caracas
  168. 434  DATA Hanoi,Kinshasa,Road Town,San'a,Aden,Belgrade
  169. 436  DATA Lusaka,Salisbury
  170.